perm filename LINES.F4[1,LCS] blob
sn#093935 filedate 1974-03-27 generic text, type T, neo UTF8
05000 SUBROUTINE UNPACK(K,M,N,I)
05100 COMMON/LL/L
05200 C L IS FOR VIS. OR INVIS. LINES.
05300 DIMENSION I(1)
05400 L=2
05500 N=I(K)
05600 L=2
05700 IF(N.LT.100000000)GO TO 2
05800 L=3
05900 N=N-100000000
06000 2 M=N/10000
06100 N=N-M*10000
06200 IF(M.GT.1000)M=1000-M
06300 IF(N.GT.1000)N=1000-N
06400 RETURN
06500 END
07000
12000 SUBROUTINE LINES(K,L,M)
12010 COMMON Q(100),R(100),E(100),N
12100 IF(N.NE.0)GO TO 1
12200 DIMENSION I(2000)
12300 CALL DPYSET(1,I,2000)
12400 N=-1
12500 1 IF(M.EQ.3)GO TO 2
12600 CALL AVECT(K,L)
12800 RETURN
12900 2 CALL AIVECT(K,L)
13000 END